home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
h
/
num_include.h
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
888b
|
48 lines
/*
(c) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved.
Copying of this file is authorized to users who have executed the true and
proper "License Agreement for Kyoto Common LISP" with SIGLISP.
*/
/*
number routine include file
*/
#define MASK 0x7fffffff
#ifdef MV
#endif
object shortfloat_zero;
object longfloat_zero;
object Sshort_float;
object Ssingle_float;
object Sdouble_float;
object Slong_float;
object Vrandom_state;
#define BOOLCLR 0
#define BOOLSET 017
#define BOOL1 03
#define BOOL2 05
#define BOOLC1 014
#define BOOLC2 012
#define BOOLAND 01
#define BOOLIOR 07
#define BOOLXOR 06
#define BOOLEQV 011
#define BOOLNAND 016
#define BOOLNOR 010
#define BOOLANDC1 04
#define BOOLANDC2 02
#define BOOLORC1 015
#define BOOLORC2 013
#define PI 3.141592653589793
#define MOST_POSITIVE_FIX 2147483647
#define MOST_NEGATIVE_FIX -2147483648